atcontext: labelled-by has a reference list

This is unclear - our docs state that all the
relations have value type reference, but in fact
they all have value type reference list.

diff --git a/gtk/gtkatcontext.c b/gtk/gtkatcontext.c
index fe770cd5c22817c82b76e3e829e7ef602dd8e585..085bf989b2abdb6b61deb79c975e322f7c0e7dbf 100644 (file)
--- a/gtk/gtkatcontext.c
+++ b/gtk/gtkatcontext.c
@@ -762,7 +762,8 @@ gtk_at_context_get_label (GtkATContext *self)
     {
       value = gtk_accessible_attribute_set_get_value (self->relations, GTK_ACCESSIBLE_RELATION_LABELLED_BY);
 
-      GtkAccessible *rel = gtk_reference_accessible_value_get (value);
+      GList *list = gtk_reference_list_accessible_value_get (value);
+      GtkAccessible *rel = GTK_ACCESSIBLE (list->data);
       GtkATContext *rel_context = gtk_accessible_get_at_context (rel);
 
       return gtk_at_context_get_label (rel_context);